|
1400
|
Is it possible to define my values for sorting
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("C1")}:SortType := SortUserDataString
oDCOCX_Exontrol1:Columns:Add("C2")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Cell 1")
var_Items:[CellData,h,0] := "3.your extra data"
var_Items:[CellValue,h,1] := "SortValue=3"
h := var_Items:AddItem("Cell 1.1")
var_Items:[CellData,h,0] := "1.your extra data"
var_Items:[CellValue,h,1] := " SortValue=1"
h := var_Items:AddItem("Cell 1.2")
var_Items:[CellData,h,0] := "5.your extra data"
var_Items:[CellValue,h,1] := " SortValue=5"
h := var_Items:AddItem("Cell 1.3")
var_Items:[CellData,h,0] := "2.your extra data"
var_Items:[CellValue,h,1] := " SortValue=2"
|
|
1399
|
I have multiple dropdown lists, that are depending on each other, that means that the values in dropdown list no. 2 is based on the users selection in dropdown list no 1. How can I do this
METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
// EditOpen event - Occurs when the edit operation starts.
local var_Editor as IEditor
local var_Items as IItems
local c,v as USUAL
var_Items := oDCOCX_Exontrol1:Items
v := var_Items:[CellValue,var_Items:FocusItem,0]
c := var_Items:[CellCaption,var_Items:FocusItem,0]
var_Editor := oDCOCX_Exontrol1:Columns:[Item,1]:Editor
var_Editor:ClearItems()
var_Editor:AddItem(v,AsString(c),nil)
RETURN NIL
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList")}
var_Editor := var_Column:Editor
var_Editor:EditType := DropDownListType
var_Editor:AddItem(1,"First",nil)
var_Editor:AddItem(2,"Second",nil)
var_Editor:AddItem(3,"Third",nil)
oDCOCX_Exontrol1:DrawGridLines := exAllLines
IColumn{oDCOCX_Exontrol1:Columns:Add("DropDownList-Related")}:Editor:EditType := DropDownListType
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := -1
var_Items:[CellValue,var_Items:AddItem(2),1] := -1
var_Items:[CellValue,var_Items:AddItem(3),1] := -1
var_Items:[LockedItemCount,exBottom] := 1
h := var_Items:[LockedItem,exBottom,0]
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerTop
var_Items:[CellEditorVisible,h,0] := exEditorHidden
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
var_Items:[CellValueFormat,h,0] := exHTML
var_Items:[CellValue,h,0] := "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
oDCOCX_Exontrol1:EndUpdate()
|
|
1398
|
Is it possible background color displayed when the mouse passes over an item
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
oDCOCX_Exontrol1:HotBackColor := RGB(0,0,128)
oDCOCX_Exontrol1:HotForeColor := RGB(255,255,255)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:EndUpdate()
|
|
1397
|
Is it possible to magnify a specified date and apply a different background color
local var_Chart as IChart
local var_InsideZoom as IInsideZoom
local var_Items as IItems
local hA,hB as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:DrawLevelSeparator := exLevelNoLine
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20111123")
var_Chart:LevelCount := 3
var_Chart:FirstWeekDay := exMonday
var_Chart:AllowInsideZoom := true
var_Chart:InsideZooms:Add(SToD("20111129")):AllowCustomFormat := true
var_InsideZoom := var_Chart:InsideZooms:[Item,SToD("20111129")]
var_InsideZoom:Width := 68
var_InsideZoom:CustomFormat:BackColorChart := RGB(224,224,224)
var_Items := oDCOCX_Exontrol1:Items
hA := var_Items:AddItem("Task A")
var_Items:AddBar(hA,"Task",SToD("20111124"),SToD("20111126"),"A",nil)
hB := var_Items:AddItem("Task B")
var_Items:AddBar(hB,"Task",SToD("20111128"),SToD("20111201"),"B",nil)
var_Items:AddLink("LinkAB",hA,"A",hB,"B")
var_Items:[Link,"LinkAB",exLinkStyle] := 2
var_Items:[Link,"LinkAB",exLinkWidth] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
1396
|
Could you please tell me how to add multiple bars to the one line
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20020101")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20020102"),SToD("20020104"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20020106"),SToD("20020110"),"B",nil)
var_Items:[ItemBar,h,"A",exBarColor] := 255
var_Items:AddLink("AB",h,"A",h,"B")
oDCOCX_Exontrol1:EndUpdate()
|
|
1395
|
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:Template := "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
|
|
1394
|
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
local var_Print as IExPrint
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkStartPos] := 0
oDCOCX_Exontrol1:EndUpdate()
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:PrintExt := oDCOCX_Exontrol1:ExecuteTemplate("me")
var_Print:Preview()
|
|
1393
|
Is it possible to display the bar's captions or labels with a different font/size
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:DefaultItemHeight := 24
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"","This is a the control's font")
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
h := var_Items:AddItem("Smaller")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"","<font ;5>This is a the control's font with a smaller size")
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
h := var_Items:AddItem("Larger")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"","<font ;15>This is a the control's font with a larger size")
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
h := var_Items:AddItem("Tahoma 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"","<font Tahoma>This is using a Tahoma font")
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
h := var_Items:AddItem("Tahoma 2")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"","<font Tahoma;14>This is using a <b>Tahoma</b> font with a different size")
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
oDCOCX_Exontrol1:EndUpdate()
|
|
1392
|
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K1")
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K2")
var_ConditionalFormat1:BackColor := RGB(255,0,0)
var_ConditionalFormat1:ApplyTo := 0x2 |
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Columns:Add("Column 3")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(nil)
var_Items:AddItem(nil)
var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1391
|
Is it possible to change the height for all items at once
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 12
oDCOCX_Exontrol1:Items:[ItemHeight,0] := 12
|
|
1390
|
Is it possible to include the weekday when displaying the date
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
var_Column := IColumn{var_Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:[Def,exCellValueFormat] := 1
var_Column:FormatColumn := "value + '<font ;6> ' + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
var_Column1 := IColumn{var_Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:[Def,exCellValueFormat] := 1
var_Column1:FormatColumn := "value + '<font ;6> ' + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 256
var_Chart:NonworkingDays := 0
var_Chart:FirstWeekDay := exMonday
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1389
|
I need my chart to display the end date with on day less. How can I do this (Method 1)
local var_Chart as IChart
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
var_Column := IColumn{var_Columns:Add("End")}
var_Column:[Def,exCellValueToItemBarProperty] := 2
var_Column:FormatColumn := "shortdate(date(value)-1)"
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Chart:NonworkingDays := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AllowCellValueToItemBar := true
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20060921"),SToD("20060924"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20060922"),SToD("20060925"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20060923"),SToD("20060926"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1388
|
Is it possible to display my custom time-units
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := 0
var_Chart:NonworkingDays := 0
var_Level := var_Chart:[Level,0]
var_Level:Unit := exDay
var_Level:Count := 16
var_Level:Alignment := CenterAlignment
var_Level:Label := "<%i%>"
var_Level:FormatLabel := "'Half ' + (1 + (value/16) mod 2)"
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%i%>"
var_Level1:FormatLabel := "1 + value mod 16"
var_Level1:[ReplaceLabel,AsString(2)] := "<font ;10><B>Y"
var_Chart:AdjustLevelsToBase := true
var_Chart:[ScrollRange,exStartDate] := 0
var_Chart:[ScrollRange,exEndDate] := 31
|
|
1387
|
Is it possible to add new records and see them in the control's view using the DataSource
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[SelectItem,Item] := true
var_Items:EnsureVisibleItem(Item)
oDCOCX_Exontrol1:Edit(0)
RETURN NIL
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
_Recordset{oDCOCX_Exontrol1:DataSource}:AddNew(nil,nil)
RETURN NIL
local var_Items as IItems
local h as USUAL
local rs as _Recordset
rs := _Recordset{"ADODB.Recordset"}
rs:Append("Task",8,0,nil,nil)
rs:Append("Start",7,0,nil,nil)
rs:Append("End",7,0,nil,nil)
rs:Open(nil,nil,nil,nil,0)
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:DetectAddNew := true
oDCOCX_Exontrol1:DetectDelete := true
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exTop] := 1
h := var_Items:[LockedItem,exTop,0]
var_Items:[ItemDivider,h] := 0
var_Items:[ItemHeight,h] := 22
var_Items:[CellValue,h,0] := "AddNew"
var_Items:[CellHasButton,h,0] := true
var_Items:[CellHAlignment,h,0] := CenterAlignment
|
|
1386
|
How can I limit the bars to scrolling range only
METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
// CreateBar event - Fired when the user creates a new bar.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemBar,Item,"newbar",exBarMinStart] := oDCOCX_Exontrol1:Chart:[ScrollRange,exMinDate]
var_Items:[ItemBar,Item,"newbar",exBarMaxEnd] := oDCOCX_Exontrol1:Chart:[ScrollRange,exMaxDate]
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 56
var_Chart:[ScrollRange,exStartDate] := SToD("20010101")
var_Chart:[ScrollRange,exEndDate] := SToD("20010115")
var_Chart:FirstVisibleDate := SToD("20010112")
var_Chart:AllowCreateBar := exCreateBarAuto
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Task 1")
var_Items:AddItem("Task 2")
var_Items:AddItem("Task 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
1385
|
How do I get the handle of the last added item
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:AddItem(2)
OutputDebugString(String2Psz( AsString(var_Items:[ItemByIndex,var_Items:ItemCount]) ))
|
|
1384
|
How can I set the charts date format to any other international Format then the US version. I would need "dd.mmm.yyyy" instead of "mmm.d.'yy"
local var_Chart as IChart
local var_Level as ILevel
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<%dd%>.<%mmm%>.<%yyyy%>"
var_Level:Unit := exWeek
var_Level:Alignment := exHOutside | CenterAlignment
|
|
1383
|
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SingleSel := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:AllowLinkBars := false
var_Chart:DrawGridLines := exAllLines
var_Chart:FirstVisibleDate := SToD("20001224")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramSelectedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramType := exHistCumulative
var_Bar:HistogramItems := 6
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar:HistogramCumulativeOriginalColorBars := exKeepOriginalColor
var_Bar:OverlaidType := exOverlaidBarsOffset
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:[ItemBold,h] := true
var_Items:[SelectableItem,h] := false
h1 := var_Items:InsertItem(h,nil,"Item 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Item 2")
var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010105"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Item 3")
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010106"),nil,nil)
var_Items:AddBar(h1,"Task",SToD("20010101"),SToD("20010103"),"green",nil)
var_Items:[ItemBar,h1,"green",exBarColor] := 65280
var_Items:AddBar(h1,"Task",SToD("20010108"),SToD("20010110"),"red",nil)
var_Items:[ItemBar,h1,"red",exBarColor] := 255
var_Items:[ExpandItem,h] := true
var_Items:SelectAll()
oDCOCX_Exontrol1:EndUpdate()
|
|
1382
|
How can I hide the values shown in the legend when cumulative histogram is displayed
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramPattern := exPatternSolid
var_Bar:HistogramType := exHistCumulative
var_Bar:HistogramItems := 6
var_Bar:HistogramRulerLinesColor := RGB(128,0,0)
var_Bar:HistogramBorderColor := RGB(1,0,0)
var_Bar:HistogramCumulativeShowLegend := 65535
var_Bar:HistogramCumulativeOriginalColorBars := exChangeColor
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 3"),"Task",SToD("20010104"),SToD("20010106"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 4"),"Task",SToD("20010102"),SToD("20010108"),nil,nil)
var_Items:[CellState,var_Items:[ItemByIndex,1],0] := 1
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1381
|
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors
local var_Bar as IBar
local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:[PaneWidth,false] := 128
var_Chart:HistogramView := exHistogramNoGrouping | exHistogramLeafItems | exHistogramUnlockedItems | exHistogramCheckedItems
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(128,128,128)
var_Bar:HistogramType := exHistCumulative
var_Bar:HistogramItems := 6
var_Bar:HistogramRulerLinesColor := RGB(128,0,0)
var_Bar:HistogramBorderColor := RGB(1,0,0)
var_Bar:HistogramCumulativeColors := 2
var_Bar:[HistogramCumulativeColor,0] := RGB(0,0,255)
var_Bar:[HistogramCumulativeColor,1] := RGB(0,0,255)
var_Bar:HistogramCumulativeOriginalColorBars := exChangeColor
var_Bar:HistogramPattern := var_Bar:Pattern
var_Bar:HistogramCumulativeShowLegend := 65535
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project 1")
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 1"),"Task",SToD("20010102"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 2"),"Task",SToD("20010103"),SToD("20010105"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 3"),"Task",SToD("20010104"),SToD("20010106"),nil,nil)
var_Items:AddBar(var_Items:InsertItem(h,nil,"Item 4"),"Task",SToD("20010102"),SToD("20010108"),nil,nil)
var_Items:[CellState,var_Items:[ItemByIndex,1],0] := 1
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1380
|
Is it possible to show the non-working pattern over the bars
local var_Bar,var_Bar1 as IBar
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:NonworkingDaysPattern := exPatternBDiagonal
var_Chart:NonworkingDaysColor := RGB(0,0,0)
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramBackground | exHistogramAllItems
var_Chart:LevelCount := 2
var_Bars := var_Chart:Bars
var_Bar := var_Bars:Add("Empty")
var_Bar:Color := RGB(0,0,0)
var_Bar:Pattern := exPatternFDiagonal
var_Bar:Shape := exShapeSolidFrameless
var_Bar1 := var_Bars:Add("Task:Empty")
var_Bar1:Shortcut := "Task"
var_Bar1:HistogramItems := -5
var_Bar1:HistogramCriticalValue := 3
var_Bar1:HistogramType := exHistOverload
var_Bar1:HistogramPattern := var_Bar1:Pattern
var_Bar1:[Def,exBarCaption] := "<%=%258%> working days bar"
var_Bar1:[Def,exBarHAlignCaption] := 18
var_Bar1:[Def,exBarKeepWorkingCount] := true
var_Chart:UnitWidthNonworking := -12
var_Chart:[Level,1]:FormatLabel := "weekday(dvalue) in (0,6) ? `` : value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20050623"),SToD("20050629"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20050624"),SToD("20050628"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1379
|
I'm showing values from a ado recordset from sql 2005. When I try to edit a column with integers, it just skips back to the original numbers after pressing enter..., why
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
// Error event - Fired when an internal error occurs.
OutputDebugString(String2Psz( AsString(Error) ))
OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940803")
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:UnitScale := exDay
var_Chart:FirstWeekDay := exMonday
var_Chart:OverviewVisible := exOverviewShowAllVisible
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
1378
|
Is it possible to reduce the non-working parts of the control
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramType := exHistOverAllocation
var_Bar:HistogramPattern := var_Bar:Pattern
var_Chart:UnitWidthNonworking := -8
var_Chart:[Level,1]:FormatLabel := "weekday(dvalue) in (0,6) ? `` : value"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task A")
var_Items:AddBar(h,"Task",SToD("20050623"),SToD("20050629"),"","4 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 4
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Task B")
var_Items:AddBar(h,"Task",SToD("20050628"),SToD("20050630"),"","2 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 2
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1377
|
I don't want to see the "schedule"/show "workload" in non-working days part of the histogram
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramType := exHistOverAllocation
var_Bar:HistogramPattern := var_Bar:Pattern
var_Chart:ShowNonworkingDates := false
var_Chart:ShowNonworkingUnits := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task A")
var_Items:AddBar(h,"Task",SToD("20050623"),SToD("20050629"),"","4 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 4
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Task B")
var_Items:AddBar(h,"Task",SToD("20050628"),SToD("20050630"),"","2 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 2
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1376
|
The control shows, and handles non-working days PERFECT, but how is it possible to reflect this in the Histogram. I don't want to "schedule"/show "workload" in non-working days...
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 40
var_Chart:FirstVisibleDate := SToD("20050620")
var_Chart:HistogramVisible := true
var_Chart:HistogramHeight := 64
var_Chart:HistogramView := exHistogramAllItems
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:HistogramType := exHistOverAllocation
var_Bar:HistogramPattern := var_Bar:Pattern
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task A")
var_Items:AddBar(h,"Task",SToD("20050623"),SToD("20050629"),"","4 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 4
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
h := var_Items:AddItem("Task B")
var_Items:AddBar(h,"Task",SToD("20050628"),SToD("20050630"),"","2 working days bar")
var_Items:[ItemBar,h,"",exBarCanResize] := false
var_Items:[ItemBar,h,"",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"",exBarEffort] := 2
var_Items:[ItemBar,h,"",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1375
|
When I do select the button in the overview-zoom I want the scaling to change accordingly. Can I set different scales per selected zoom level
METHOD OCX_Exontrol1OverviewZoom() CLASS MainDialog
// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Chart:UnitScale) ))
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:[Label,exSecond] := ""
var_Chart:[Label,exYear] := ""
|
|
1374
|
How do I display Icons instead of text in the overview zoom area
local var_Chart as IChart
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:[Label,exSecond] := ""
var_Chart:[Label,exYear] := ""
OutputDebugString(String2Psz( var_Chart:OverviewZoomCaption ))
var_Chart:OverviewZoomCaption := "Year|½Year|¼Year|Month|Third|<img>1</img>|Day|Hour|Min|Sec"
|
|
1373
|
How do I get it to only display Min, Hour, Day, Week , Month, ie remove Sec and Year in the overview area
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:[Label,exSecond] := ""
var_Chart:[Label,exYear] := ""
|
|
1372
|
Is it possible to show quarter hours markers
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:GridLineColor := RGB(0,0,0)
oDCOCX_Exontrol1:VisualAppearance:Add(3,"gBFLBCJwBAEHhEJAEGg4BdMIQAAYAQGKIYBkAKBQAGaAoDDUNw5QwAAwjSKkEwsACEIrjKCRShyCYZRhGcTAFBMIhkGoSZKlCIRVDCKYJDbKACSFKkNQ7AabZBgOQJVgOKovThKcIybQAASJCKRY7nUIIJA+SoDSRAbqhYIgASnKqLJAkACIJJAaRjHQdJxGKKMQANBghCZseKhWgkKIJUxAdLTWAAMQuaCoZ5icRAca2fJ+XzfeBYDgmAYNQbDcJhHCMMwXDaJZBiGJ4dimI4rR7JIDzDJ8cxbEKTZ5meg5boGRZNTrMQA0fQ9MynK6vahfOi7DpuaZnWrcMb2fYNZwrGq0bxoW58BwmP5/XrkNa4XgcVgmAUBA")
oDCOCX_Exontrol1:HeaderHeight := 20
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:UnitScale := exHour
var_Level := var_Chart:[Level,0]
var_Level:Alignment := exHOutside
var_Level:Label := "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
var_Level:DrawTickLines := exLevelSolidLine
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%hh%>:00"
var_Level1:BackColor := 0x3000000
var_Level1:DrawTickLines := exLevelSolidLine
var_Chart:DrawLevelSeparator := exLevelSolidLine
var_Chart:UnitWidth := 64
var_Chart:ResizeUnitScale := exMinute
var_Chart:ResizeUnitCount := 15
oDCOCX_Exontrol1:EndUpdate()
|
|
1371
|
How can I ensure or always show the labels on the chart part, when scrolling the chart to left or right
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 48
var_Chart:UnitScale := exHour
var_Level := var_Chart:[Level,0]
var_Level:Alignment := exHOutside | CenterAlignment
var_Level:Label := "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
var_Chart:[Level,1]:Label := "<%hh%>:00"
oDCOCX_Exontrol1:EndUpdate()
|
|
1370
|
I associate the Start and End columns with bars, but some of them are not shown. What am I doing wrong
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20001225")
var_Chart:[PaneWidth,false] := 128
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}
var_Column:[Def,exCellValueToItemBarProperty] := 1
var_Column:[Def,exCellValueToItemBarKey] := "K1"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("End")}
var_Column1:[Def,exCellValueToItemBarProperty] := 2
var_Column1:[Def,exCellValueToItemBarKey] := "K1"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem(nil),"Task",SToD("20010101"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:AddItem(nil),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem(nil),"Task",SToD("20010103"),SToD("20010107"),"????","????")
oDCOCX_Exontrol1:EndUpdate()
|
|
1369
|
How can I implement OLE Drag and Drop operation
METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
// OLEStartDrag event - Occurs when the OLEDrag method is called.
// Data.SetData("your data to drag")
AllowedEffects := 2
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
var_Items:AddItem("Item 4")
var_Items:AddItem("Item 5")
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:EndUpdate()
|
|
1368
|
I can not associate the bar's start and end properties with my start/end columns, only if the bar's key is empty or null. What can I do
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:[Item,"Tasks"]:[Def,exCellValueToItemBarKey] := "B"
var_Columns:[Item,"Start"]:[Def,exCellValueToItemBarKey] := "B"
var_Columns:[Item,"End"]:[Def,exCellValueToItemBarKey] := "B"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,Item,1] := "B"
var_Items:[ItemBar,0,"B",exBarColor] := 0
var_Items:[ItemBar,0,"A",exBarColor] := 16775408
oDCOCX_Exontrol1:EndUpdate()
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items,var_Items1 as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Tasks")}
var_Column:Width := 32
var_Column:[Def,exCellValueToItemBarProperty] := 3
var_Column:[Def,exCellValueToItemBarKey] := "A"
var_Column1 := IColumn{var_Columns:Add("Start")}
var_Column1:[Def,exCellValueToItemBarProperty] := 1
var_Column1:[Def,exCellValueToItemBarKey] := "A"
var_Column1:Editor:EditType := DateType
var_Column2 := IColumn{var_Columns:Add("End")}
var_Column2:[Def,exCellValueToItemBarProperty] := 2
var_Column2:[Def,exCellValueToItemBarKey] := "A"
var_Column2:Editor:EditType := DateType
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := true
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 196
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternBDiagonal
var_Bar:OverlaidType := exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Bar:[Overlaid,exOverlaidBarsTransparent] := 80
var_Items := oDCOCX_Exontrol1:Items
var_Items:[LockedItemCount,exTop] := 1
h := var_Items:[LockedItem,exTop,0]
var_Items:[CellValue,h,0] := "Select"
var_Items:[CellHasButton,h,0] := true
var_Items:[CellMerge,h,1] := 2
var_Items:[CellValue,h,1] := "A"
var_Items:[CellEditor,h,1]:EditType := EditType
var_Items1 := oDCOCX_Exontrol1:Items
var_Items1:AllowCellValueToItemBar := true
h := var_Items1:AddItem("Task 1")
var_Items1:AddBar(h,"Task",SToD("20060921"),SToD("20060924"),"A","A")
var_Items1:AddBar(h,"Task",SToD("20060925"),SToD("20060928"),"B","B")
var_Items1:[ItemBar,h,"B",exBarColor] := 16775408
h := var_Items1:AddItem("Task 2")
var_Items1:AddBar(h,"Task",SToD("20060922"),SToD("20060925"),"A","A")
var_Items1:AddBar(h,"Task",SToD("20060926"),SToD("20060929"),"B","B")
var_Items1:[ItemBar,h,"B",exBarColor] := 16775408
oDCOCX_Exontrol1:EndUpdate()
|
|
1367
|
How can I determine the order of the events
METHOD OCX_Exontrol1AddLink(LinkKey) CLASS MainDialog
// AddLink event - Occurs when the user links two bars using the mouse.
OutputDebugString(String2Psz( "AddLink" ))
OutputDebugString(String2Psz( AsString(LinkKey) ))
RETURN NIL
METHOD OCX_Exontrol1AfterExpandItem(Item) CLASS MainDialog
// AfterExpandItem event - Fired after an item is expanded (collapsed).
OutputDebugString(String2Psz( "AfterExpandItem" ))
OutputDebugString(String2Psz( AsString(Item) ))
RETURN NIL
METHOD OCX_Exontrol1AllowLink(StartItem,StartBarKey,EndItem,EndBarKey,LinkKey,Cancel) CLASS MainDialog
// AllowLink event - Notifies at runtime when a link between two bars is possible.
OutputDebugString(String2Psz( "AllowLink" ))
OutputDebugString(String2Psz( AsString(StartItem) ))
OutputDebugString(String2Psz( AsString(StartBarKey) ))
OutputDebugString(String2Psz( AsString(EndItem) ))
OutputDebugString(String2Psz( AsString(EndBarKey) ))
OutputDebugString(String2Psz( AsString(LinkKey) ))
RETURN NIL
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( "AnchorClick" ))
OutputDebugString(String2Psz( AsString(AnchorID) ))
OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL
METHOD OCX_Exontrol1BarParentChange(Item,Key,NewItem,Cancel) CLASS MainDialog
// BarParentChange event - Occurs just before moving a bar from current item to another item.
OutputDebugString(String2Psz( "BarParentChange" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(Key) ))
OutputDebugString(String2Psz( AsString(NewItem) ))
RETURN NIL
METHOD OCX_Exontrol1BarResize(Item,Key) CLASS MainDialog
// BarResize event - Occurs when a bar is moved or resized.
OutputDebugString(String2Psz( "BarResize" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
OutputDebugString(String2Psz( "BarResizing" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
OutputDebugString(String2Psz( "BeforeExpandItem" ))
OutputDebugString(String2Psz( AsString(Item) ))
RETURN NIL
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
OutputDebugString(String2Psz( "ButtonClick" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
METHOD OCX_Exontrol1CellImageClick(Item,ColIndex) CLASS MainDialog
// CellImageClick event - Fired after the user clicks on the image's cell area.
OutputDebugString(String2Psz( "CellImageClick" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
RETURN NIL
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
OutputDebugString(String2Psz( "CellStateChanged" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
RETURN NIL
METHOD OCX_Exontrol1Change(Item,ColIndex,NewValue) CLASS MainDialog
// Change event - Occurs when the user changes the cell's content.
OutputDebugString(String2Psz( "Change" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
OutputDebugString(String2Psz( AsString(NewValue) ))
RETURN NIL
METHOD OCX_Exontrol1ChartEndChanging(Operation) CLASS MainDialog
// ChartEndChanging event - Occurs after the chart has been changed.
OutputDebugString(String2Psz( "ChartEndChanging" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1ChartSelectionChanged() CLASS MainDialog
// ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
OutputDebugString(String2Psz( "ChartSelectionChanged" ))
RETURN NIL
METHOD OCX_Exontrol1ChartStartChanging(Operation) CLASS MainDialog
// ChartStartChanging event - Occurs when the chart is about to be changed.
OutputDebugString(String2Psz( "ChartStartChanging" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
OutputDebugString(String2Psz( "Click" ))
RETURN NIL
METHOD OCX_Exontrol1ColumnClick(Column) CLASS MainDialog
// ColumnClick event - Fired after the user clicks on column's header.
OutputDebugString(String2Psz( "ColumnClick" ))
RETURN NIL
METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
// CreateBar event - Fired when the user creates a new bar.
OutputDebugString(String2Psz( "CreateBar" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(DateStart) ))
OutputDebugString(String2Psz( AsString(DateEnd) ))
RETURN NIL
METHOD OCX_Exontrol1DateChange() CLASS MainDialog
// DateChange event - Occurs when the first visible date is changed.
OutputDebugString(String2Psz( "DateChange" ))
RETURN NIL
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
OutputDebugString(String2Psz( "DblClick" ))
OutputDebugString(String2Psz( AsString(Shift) ))
OutputDebugString(String2Psz( AsString(X) ))
OutputDebugString(String2Psz( AsString(Y) ))
oDCOCX_Exontrol1:Edit(nil)
RETURN NIL
METHOD OCX_Exontrol1Edit(Item,ColIndex,Cancel) CLASS MainDialog
// Edit event - Occurs just before editing the focused cell.
OutputDebugString(String2Psz( "Edit" ))
OutputDebugString(String2Psz( AsString(Item) ))
OutputDebugString(String2Psz( AsString(ColIndex) ))
RETURN NIL
METHOD OCX_Exontrol1EditClose() CLASS MainDialog
// EditClose event - Occurs when the edit operation ends.
OutputDebugString(String2Psz( "EditClose" ))
RETURN NIL
METHOD OCX_Exontrol1EditOpen() CLASS MainDialog
// EditOpen event - Occurs when the edit operation starts.
OutputDebugString(String2Psz( "EditOpen" ))
RETURN NIL
METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
// FilterChange event - Occurs when the filter was changed.
OutputDebugString(String2Psz( "FilterChange" ))
RETURN NIL
METHOD OCX_Exontrol1FilterChanging() CLASS MainDialog
// FilterChanging event - Notifies your application that the filter is about to change.
OutputDebugString(String2Psz( "FilterChanging" ))
RETURN NIL
METHOD OCX_Exontrol1FocusChanged() CLASS MainDialog
// FocusChanged event - Occurs when a cell gets the focus.
OutputDebugString(String2Psz( "FocusChanged" ))
RETURN NIL
METHOD OCX_Exontrol1InsideZoom(DateTime) CLASS MainDialog
// InsideZoom event - Notifies your application that a date is about to be magnified.
OutputDebugString(String2Psz( "InsideZoom" ))
OutputDebugString(String2Psz( AsString(DateTime) ))
RETURN NIL
METHOD OCX_Exontrol1KeyDown(KeyCode,Shift) CLASS MainDialog
// KeyDown event - Occurs when the user presses a key while an object has the focus.
OutputDebugString(String2Psz( "KeyDown" ))
OutputDebugString(String2Psz( AsString(KeyCode) ))
OutputDebugString(String2Psz( AsString(Shift) ))
RETURN NIL
METHOD OCX_Exontrol1KeyPress(KeyAscii) CLASS MainDialog
// KeyPress event - Occurs when the user presses and releases an ANSI key.
OutputDebugString(String2Psz( "KeyPress" ))
OutputDebugString(String2Psz( AsString(KeyAscii) ))
RETURN NIL
METHOD OCX_Exontrol1KeyUp(KeyCode,Shift) CLASS MainDialog
// KeyUp event - Occurs when the user releases a key while an object has the focus.
OutputDebugString(String2Psz( "KeyUp" ))
OutputDebugString(String2Psz( AsString(KeyCode) ))
OutputDebugString(String2Psz( AsString(Shift) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutChanged() CLASS MainDialog
// LayoutChanged event - Occurs when column's position or column's size is changed.
OutputDebugString(String2Psz( "LayoutChanged" ))
RETURN NIL
METHOD OCX_Exontrol1MouseDown(Button,Shift,X,Y) CLASS MainDialog
// MouseDown event - Occurs when the user presses a mouse button.
OutputDebugString(String2Psz( "MouseDown" ))
OutputDebugString(String2Psz( AsString(Button) ))
OutputDebugString(String2Psz( AsString(Shift) ))
OutputDebugString(String2Psz( AsString(X) ))
OutputDebugString(String2Psz( AsString(Y) ))
RETURN NIL
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
RETURN NIL
METHOD OCX_Exontrol1MouseUp(Button,Shift,X,Y) CLASS MainDialog
// MouseUp event - Occurs when the user releases a mouse button.
OutputDebugString(String2Psz( "MouseUp" ))
OutputDebugString(String2Psz( AsString(Button) ))
OutputDebugString(String2Psz( AsString(Shift) ))
OutputDebugString(String2Psz( AsString(X) ))
OutputDebugString(String2Psz( AsString(Y) ))
RETURN NIL
METHOD OCX_Exontrol1OffsetChanged(Horizontal,NewVal) CLASS MainDialog
// OffsetChanged event - Occurs when the scroll position has been changed.
OutputDebugString(String2Psz( "OffsetChanged" ))
OutputDebugString(String2Psz( AsString(Horizontal) ))
OutputDebugString(String2Psz( AsString(NewVal) ))
RETURN NIL
METHOD OCX_Exontrol1OversizeChanged(Horizontal,NewVal) CLASS MainDialog
// OversizeChanged event - Occurs when the right range of the scroll has been changed.
OutputDebugString(String2Psz( "OversizeChanged" ))
OutputDebugString(String2Psz( AsString(Horizontal) ))
OutputDebugString(String2Psz( AsString(NewVal) ))
RETURN NIL
METHOD OCX_Exontrol1OverviewZoom() CLASS MainDialog
// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
OutputDebugString(String2Psz( "OverviewZoom" ))
RETURN NIL
METHOD OCX_Exontrol1RClick() CLASS MainDialog
// RClick event - Fired when right mouse button is clicked
OutputDebugString(String2Psz( "RClick" ))
RETURN NIL
METHOD OCX_Exontrol1ScrollButtonClick(ScrollBar,ScrollPart) CLASS MainDialog
// ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
OutputDebugString(String2Psz( "ScrollButtonClick" ))
OutputDebugString(String2Psz( AsString(ScrollBar) ))
OutputDebugString(String2Psz( AsString(ScrollPart) ))
RETURN NIL
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
OutputDebugString(String2Psz( "SelectionChanged" ))
RETURN NIL
METHOD OCX_Exontrol1Sort() CLASS MainDialog
// Sort event - Fired when the control sorts a column.
OutputDebugString(String2Psz( "Sort" ))
RETURN NIL
local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:GridLineStyle := exGridLinesHDash
oDCOCX_Exontrol1:AutoEdit := false
oDCOCX_Exontrol1:ExpandOnDblClick := false
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowInsideZoom := true
var_Chart:OverviewVisible := exOverviewShowAllVisible
var_Chart:AllowOverviewZoom := exAlwaysZoom
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesVSolid | exGridLinesHDash
var_Chart:LevelCount := 2
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
var_Chart:UnitScale := exDay
var_Chart:[Label,exSecond] := ""
var_Chart:[Label,exMinute] := ""
var_Chart:[Label,exHour] := ""
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Column")}
var_Column:DisplayFilterButton := true
var_Column:[Def,exCellHasCheckBox] := true
var_Column:Editor:EditType := EditType
var_Column1 := IColumn{var_Columns:Add("Button")}
var_Column1:AllowSizing := false
var_Column1:Width := 18
var_Column1:[Def,exCellHasButton] := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("parent")
var_Items:[CellImage,h,0] := 1
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A","<a>A</a>")
var_Items:[ItemBar,h,"A",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"A",exBarCanMoveToAnother] := true
var_Items:[ItemBar,h,"A",exBarToolTip] := "This is a bit of text that should be shown when cursor hovers the bar"
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B","<a>B</a>")
var_Items:[ItemBar,h,"B",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := true
var_Items:InsertItem(h,"","child")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1366
|
How can I change the chart's horizontal grid lines
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesHDash
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 48
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawGridLines := exAllLines
var_Chart:GridLineStyle := exGridLinesVSolid | exGridLinesHDash
var_Chart:LevelCount := 2
var_Chart:[Level,0]:DrawGridLines := true
var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"A",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010115"),"B",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1365
|
Is there any way to determine whether the ADO operations fails
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
// Error event - Fired when an internal error occurs.
OutputDebugString(String2Psz( AsString(Error) ))
OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940803")
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:UnitScale := exDay
var_Chart:FirstWeekDay := exMonday
var_Chart:OverviewVisible := exOverviewShowAllVisible
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
1364
|
Is it possible to select a column instead sorting it
METHOD OCX_Exontrol1ColumnClick(Column) CLASS MainDialog
// ColumnClick event - Fired after the user clicks on column's header.
// Column.Selected = True
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:[Item,0]:Selected := false
oDCOCX_Exontrol1:Columns:[Item,1]:Selected := false
oDCOCX_Exontrol1:Items:SelectAll()
oDCOCX_Exontrol1:EndUpdate()
RETURN NIL
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := exRectSel
oDCOCX_Exontrol1:SortOnClick := exNoSort
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column1")
var_Columns:Add("Column2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("One"),1] := "Three"
var_Items:[CellValue,var_Items:AddItem("Two"),1] := "Four"
var_Items:SelectAll()
oDCOCX_Exontrol1:EndUpdate()
|
|
1363
|
I am using the exRectSel, and clicking the first column, has no effect, instead if I click other it works as it should
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SearchColumnIndex := -1
oDCOCX_Exontrol1:FullRowSelect := exRectSel
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column1")
var_Columns:Add("Column2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(1),1] := 2
var_Items:[CellValue,var_Items:AddItem(3),1] := 4
var_Items:[CellValue,var_Items:AddItem(5),1] := 6
oDCOCX_Exontrol1:EndUpdate()
|
|
1362
|
Is it possible to display empty strings for 0 values
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}
var_Column:FormatColumn := "dbl(value) ? currency(dbl(value)) : ``"
var_Editor := var_Column:Editor
var_Editor:EditType := EditType
var_Editor:Numeric := exFloat
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1.23)
var_Items:AddItem(2.34)
var_Items:AddItem(0)
var_Items:AddItem(10000.99)
|
|
1361
|
Is it possible to display empty strings for 0 values
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "%0 ? currency(%0) : ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1.23)
var_Items:AddItem(2.34)
var_Items:AddItem(0)
var_Items:AddItem(10000.99)
|
|
1360
|
How can I hide a date from the chart view, when I display hours instead days
local var_Chart as IChart
local var_InsideZooms,var_InsideZooms1 as IInsideZooms
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20110608")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Chart:AllowInsideZoom := true
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<b><%d%>-<%mmm%>-<%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>"
var_Level1:Count := 8
var_Level1:Unit := exHour
var_Level1:FormatLabel := "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )"
var_Chart:UnitWidth := 64
var_Chart:NonworkingDays := 0
var_Chart:AllowInsideZoom := true
var_Chart:DefaultInsideZoomFormat:InsideUnit := exMinute
var_Chart:AllowResizeInsideZoom := false
var_Chart:InsideZoomOnDblClick := false
var_InsideZooms := var_Chart:InsideZooms
var_InsideZooms:SplitBaseLevel := false
var_InsideZooms:DefaultWidth := 0
var_InsideZooms1 := var_Chart:InsideZooms
var_InsideZooms1:Add(SToD("20110609 08:00:00"))
var_InsideZooms1:Add(SToD("20110609 16:00:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1359
|
I’ve created a skin (EBN) for the bars of my chart, with rounded top corners. The problem, is that these rounded corners are applied also at beginning and the end of the non working units. Is it possible to show a different picture/skin for the non-working part of the bars
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 128
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:[Item,"Task"]:Color := 0x1000000
var_Bars:[Item,"Split"]:Color := 0x2000000
var_Bars:Add("Task:Split"):Shortcut := "TS"
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task"),"TS",SToD("20010102"),SToD("20010116"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1358
|
How do I display the names of the tasks on bars but not in the middle of the bar (left or right)
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20001227")
var_Chart:[PaneWidth,false] := 128
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternDot
var_Bar:Height := 15
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task 1")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010108"),"K1","<b>to do</b> ")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 2
h := var_Items:AddItem("Task 2")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010108"),"K2","<b>to do</b>")
var_Items:[ItemBar,h,"K2",exBarHAlignCaption] := 18
h := var_Items:AddItem("Task 3")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010108"),"K1"," <b>to do</b>")
var_Items:[ItemBar,h,"K1",exBarHAlignCaption] := 0
h := var_Items:AddItem("Task 4")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010108"),"K2","<b>to do</b>")
var_Items:[ItemBar,h,"K2",exBarHAlignCaption] := 16
oDCOCX_Exontrol1:EndUpdate()
|
|
1357
|
How can I get the list of items as they are displayed
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:GetItems(1)) ))
|
|
1356
|
How can I disable the left and right arrows to move to next cell while editing
local var_Editor as IEditor
local var_Items as IItems
var_Editor := oDCOCX_Exontrol1:ColumnsIColumn{:Add("Edit")}:Editor
var_Editor:EditType := EditType
var_Editor:[Option,exLeftArrow] := 0
var_Editor:[Option,exRightArrow] := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Cell 1")
var_Items:AddItem("Cell 2")
var_Items:AddItem("Cell 3")
|
|
1355
|
Is it possible to define a bar that is treated as a non-working hour so user can move it at runtime
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 48
var_Chart:AllowNonworkingBars := true
var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
var_Chart:UnitScale := exHour
var_Chart:[Level,1]:Label := "<font ;4><%hh%>"
var_Chart:UnitWidth := 12
var_Chart:NonworkingDaysPattern := exPatternBDiagonal
var_Chart:NonworkingDays := 0
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Machine")
var_Items:[ItemNonworkingUnits,h,false] := "0"
var_Items:AddBar(h,"",SToD("20010101 09:00:00"),SToD("20010101 11:00:00"),"A","pause")
var_Items:[ItemBar,h,"A",exBarTreatAsNonworking] := true
var_Items:AddBar(h,"Task",SToD("20010101 12:00:00"),SToD("20010101 17:00:00"),"Z",nil)
var_Items:[ItemBar,h,"Z",exBarKeepWorkingCount] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1354
|
Is it possible to customize the chart's header so I can display shift and other values
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20110608")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<b><%d%> - <%mmmm%> - <%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>"
var_Level1:Count := 8
var_Level1:Unit := exHour
var_Level1:FormatLabel := "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )"
var_Chart:UnitWidth := 64
var_Chart:NonworkingDays := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1353
|
How can I change both start and end dates of the bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20050619")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Test")
var_Items:AddBar(h,"Task",SToD("20050622"),SToD("20050627"),"t1",nil)
var_Items:AddBar(h,var_Items:[ItemBar,h,"t1",exBarName],SToD("20050621"),SToD("20050622"),"t1",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1352
|
Is it possible to add new rows, as I type like in Excel
METHOD OCX_Exontrol1EditClose() CLASS MainDialog
// EditClose event - Occurs when the edit operation ends.
oDCOCX_Exontrol1:Items:AddItem("")
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AutoEdit := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}:Editor:EditType := EditType
oDCOCX_Exontrol1:FullRowSelect := exColumnSel
oDCOCX_Exontrol1:Items:AddItem("")
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:EndUpdate()
|
|
1351
|
How do I load bars from my table/database
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL
local var_Chart as IChart
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("19940803")
var_Chart:[PaneWidth,false] := 256
var_Chart:LevelCount := 2
var_Chart:UnitScale := exDay
var_Chart:FirstWeekDay := exMonday
var_Chart:OverviewVisible := exOverviewShowAllVisible
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
1350
|
Is posible to reduce the size of the picture to be shown in the bar's caption
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:ScrollBySingleLine := true
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 78
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default-Size")
var_Items:[ItemHeight,h] := 48
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K1","<img>pic1</img>")
h := var_Items:AddItem("Custom-Size")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010106"),"K2","<img>pic1:18</img>")
oDCOCX_Exontrol1:EndUpdate()
|
|
1349
|
Is posible to reduce the size of the picture to be shown in the column's caption
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:HeaderHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("DefaultSize")}:HTMLCaption := "Default-Size <img>pic1</img> Picture"
IColumn{oDCOCX_Exontrol1:Columns:Add("CustomSize")}:HTMLCaption := "Custom-Size <img>pic1:16</img> Picture"
oDCOCX_Exontrol1:EndUpdate()
|
|
1348
|
Is it possible to display the selected dates using a solid color instead vertical lines
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 128
var_Chart:FirstVisibleDate := SToD("20080101")
var_Chart:MarkTodayColor := var_Chart:BackColor
var_Chart:LevelCount := 2
var_Chart:MarkSelectDateColor := 0x7fcbc0ff
var_Chart:SelectLevel := 1
var_Chart:[SelectDate,SToD("20080108")] := true
var_Chart:[SelectDate,SToD("20080109")] := true
var_Chart:[SelectDate,SToD("20080110")] := true
oDCOCX_Exontrol1:DefaultItemHeight := 72
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem(""),"",SToD("20080107"),SToD("20080112"),"","<b>MarkSelectDateColor(32)</b><br>should be <font ;11><i>0x7F000000 + RGB(rr,gg,bb)</i></font><br> or in the format as: <font ;11><i>0x7FBBGGRR</i></font>, <br>where BB is the hexa value for Blue, <br>GG for grean and so on.")
oDCOCX_Exontrol1:EndUpdate()
|
|
1347
|
How can I show the cells using a different background color based on the condition I have
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2 as IConditionalFormat
local var_ConditionalFormats as IConditionalFormats
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:ShowFocusRect := false
var_ConditionalFormats := oDCOCX_Exontrol1:ConditionalFormats
var_ConditionalFormat := var_ConditionalFormats:Add("dbl(%1)-dbl(%0) = 1",nil)
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
var_ConditionalFormat1 := var_ConditionalFormats:Add("dbl(%0)-dbl(%1) = 3",nil)
var_ConditionalFormat1:BackColor := RGB(255,255,0)
var_ConditionalFormat1:ApplyTo := exFormatToColumns
var_ConditionalFormat2 := var_ConditionalFormats:Add("dbl(%1)-dbl(%0) = 4",nil)
var_ConditionalFormat2:ForeColor := RGB(128,128,128)
var_ConditionalFormat2:Bold := true
var_ConditionalFormat2:ApplyTo := exFormatToItems
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("C1")}:Width := 8
IColumn{var_Columns:Add("C2")}:Width := 8
var_Columns:Add("")
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(2),1] := 3
var_Items:[CellValue,var_Items:AddItem(5),1] := 2
var_Items:[CellValue,var_Items:AddItem(5),1] := 6
var_Items:[CellValue,var_Items:AddItem(2),1] := 6
oDCOCX_Exontrol1:EndUpdate()
|
|
1346
|
How can I specify the frame's color for all Task bars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:Bars:[Item,"Task"]:[Def,exBarFrameColor] := 255
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010105"),"K3",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1345
|
Is it possible to change the bar's frame color
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 25
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:DrawGridLines := exHLines
var_Chart:NonworkingDays := 0
var_Chart:Bars:[Item,"Task"]:Height := 15
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
h := var_Items:AddItem("Red-Frame")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 255
h := var_Items:AddItem("Green-ThickFrame")
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPattern] := 4099
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 32768
h := var_Items:AddItem("Red-ThickFrame/Shadow")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010108"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPattern] := 12291
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 255
oDCOCX_Exontrol1:EndUpdate()
|
|
1344
|
I need to customize the labels on the chart. Is it possible
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderHeight := 32
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20110701")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<b><%d%> - <%mmmm%> - <%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>"
var_Level1:Count := 8
var_Level1:Unit := exHour
var_Level1:FormatLabel := "int(value) case ( 0 : 'Shift <b>1</b><br><font ;11>' + yearday(dvalue) + '</font>/365 ' ; 8 : 'Shift <b>2</b><br>' + weekday(dvalue) + '/20'; 16 : 'Shift <b>3</b><br>' + (weekday(dvalue) case ( 0 : '12/22'; 1 : '12/23'; 2 : '2/3'; 3 : '12/13'; 4 : '22/34' ; 5 : '102-<fgcolor=FF0000><b>31</b></bgcolor>'; 6 : '1/1' ) ) ) "
var_Chart:UnitWidth := 64
var_Chart:NonworkingDays := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1343
|
Is it possible to show a frame around the bar
local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 25
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BOUMQAAYAQGKIYBkAKBQAGaAoDDYMgzQwAAxDELMEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIyAJIcaw0GSEZwgOQZBiOEYnDANkIYJDSIYHTZIUzTJAdGSVJKNKAoKCaEgORo5SpNUghBDYKQTJyeagkaaRVCWLplRCNIwWNJdVwjEaQaaiarKNqKNpSViAEqSdKEZRLOyRZyiKQMEreY4EUDQcxUPYMNYaAC6AAparpbwCFpSYpRND3TaEE4jSLKAA0HD6QqebIDDJaFq6PbVXSTOLPNhgPQcWxeVJBXjLExUALGSYLC6nKayHZcHACKK5VbVW6ZZDdNy/BLQeD4QANG4riuNJriMV4dgWVgHh+ZpgCeEIQEQJIgGkMYdA6JwjC0VAAmaJgQgmPp4lCWgSCiaB+DKIYIjqQpllMf6JgYAoAmASAWAaAZggQDJ/gKYJIDYDoDmECBGAOBBhEgVgUgSYRoGYGYGCGKB2BCBwhmiBgLggIgoHoJIJGGKIeCiBYiiiLgXgCIpohoMIMGKGJODSCwghiZg6g6Y5InYPh/lAECAg")
var_Appearance:Add(2,"CP:1 2 2 -2 -2")
var_Appearance:Add(3,"CP:1 -5 -5 5 5")
var_Appearance:Add(4,"XP:Window 19 1")
var_Appearance:Add(5,"XP:TreeView 2 1")
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 128
var_Chart:DrawGridLines := exHLines
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Default")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"K1",nil)
h := var_Items:AddItem("Red-Frame")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 255
h := var_Items:AddItem("Green-ThickFrame")
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPattern] := 4099
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 32768
h := var_Items:AddItem("Red-ThickFrame/Shadow")
var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"K1",nil)
var_Items:[ItemBar,h,"K1",exBarPattern] := 12291
var_Items:[ItemBar,h,"K1",exBarFrameColor] := 255
h := var_Items:AddItem("EBN-Frame-Border")
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010109"),"K2",nil)
var_Items:[ItemBar,h,"K2",exBarFrameColor] := 16777216
h := var_Items:AddItem("EBN-Inside Frame")
var_Items:AddBar(h,"Task",SToD("20010109"),SToD("20010113"),"K3",nil)
var_Items:[ItemBar,h,"K3",exBarFrameColor] := 33554432
h := var_Items:AddItem("EBN-Outside Frame")
var_Items:AddBar(h,"Task",SToD("20010115"),SToD("20010118"),"K4",nil)
var_Items:[ItemBar,h,"K4",exBarFrameColor] := 50331648
h := var_Items:AddItem("EBN-XP Close Button")
var_Items:AddBar(h,"Task",SToD("20010115"),SToD("20010118"),"K5",nil)
var_Items:[ItemBar,h,"K5",exBarFrameColor] := 67108864
h := var_Items:AddItem("EBN-XP TreeView Glyph")
var_Items:AddBar(h,"Task",SToD("20010115"),SToD("20010118"),"K6",nil)
var_Items:[ItemBar,h,"K6",exBarFrameColor] := 83886080
oDCOCX_Exontrol1:EndUpdate()
|
|
1342
|
Currently your control, provides customization up to Year,Month,Day,Hours,etc. I would like to add Shifts in a day. Shortly, I need to customize the chart's header. Is it possible
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20110701")
var_Chart:AdjustLevelsToBase := true
var_Chart:[PaneWidth,false] := 0
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Alignment := CenterAlignment
var_Level:Label := "<b><%d%> - <%mmmm%> - <%yyyy%>"
var_Level:Unit := exDay
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%h%>"
var_Level1:Count := 8
var_Level1:Unit := exHour
var_Level1:[ReplaceLabel,AsString(0)] := " Shift 1"
var_Level1:[ReplaceLabel,AsString(8)] := " Shift 2"
var_Level1:[ReplaceLabel,AsString(16)] := " Shift 3"
var_Chart:UnitWidth := 48
var_Chart:NonworkingDays := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
1341
|
The exbartootip shows dates after you moved or resized the bar. My question is during the move or resizing of bar(you click on bar and drag it,during that time) , can we display the new dates simultaneously so we will know where we want to move or resize the bar to
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:DrawDateTicker := true
var_Chart:DateTickerLabel := "<%mmm%> <%d%><br><b><%yyyy%>"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Tasks A")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010109"),"K2",nil)
var_Items:[SelectableItem,var_Items:AddItem(nil)] := false
h := var_Items:AddItem("Tasks B")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010111"),"K2",nil)
|
|
1340
|
Is it possible to assign a tooltip automatically to all bars, so it can display the start and end, without specifying the IexBarToolTip for each bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Tasks A")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010105"),SToD("20010109"),"K2",nil)
h := var_Items:AddItem("Tasks B")
var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"K1",nil)
var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010111"),"K2",nil)
|
|
1339
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:Columns:Add("C1")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}
var_Column:HeaderBold := true
var_Column:HTMLCaption := "<fgcolor=FF0000>C2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem(10),1] := 11
var_Items:[CellValue,var_Items:AddItem(12),1] := 13
oDCOCX_Exontrol1:EndUpdate()
|
|
1338
|
How can I remove a date-time zone
METHOD OCX_Exontrol1Click() CLASS MainDialog
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
oDCOCX_Exontrol1:Chart:RemoveTimeZone("Z1")
RETURN NIL
local var_Chart as IChart
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 18
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Chart:MarkTimeZone("Z1",SToD("20100104"),SToD("20100108"),16744544,nil)
|
|
1337
|
How can I filter the check-boxes (method 2)
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:CustomFilter := "checked||-1|||unchecked||0"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(true)
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(false)
|
|
1336
|
How can I filter the check-boxes (method 1)
local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
var_Editor := var_Column:Editor
var_Editor:EditType := CheckValueType
var_Editor:[Option,exCheckValue2] := 1
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterType := exCheck
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(true)
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(false)
|
|
1335
|
How can add a button to control
METHOD OCX_Exontrol1ButtonClick(Item,ColIndex,Key) CLASS MainDialog
// ButtonClick event - Occurs when user clicks on the cell's button.
OutputDebugString(String2Psz( "ButtonClick" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:Items:[CellCaption,Item,ColIndex] ))
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems
local h,s as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:HeaderHeight := 22
oDCOCX_Exontrol1:Appearance := None2
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Type")}
var_Column:Width := 48
var_Column:[Def,exCellValueFormat] := 1
var_Column1 := IColumn{var_Columns:Add("Appearance")}
var_Column1:[Def,exCellValueFormat] := 1
var_Column1:Alignment := CenterAlignment
var_Column1:HeaderAlignment := CenterAlignment
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Items.<b>CellHasButton</b> property")
var_Items:[CellValue,h,1] := "Button <b>1</b>"
var_Items:[CellHasButton,h,1] := true
h := var_Items:AddItem("Items.<b>CellButtonAutoWidth</b> property")
var_Items:[CellValue,h,1] := " Button <b>2</b> "
var_Items:[CellHasButton,h,1] := true
var_Items:[CellButtonAutoWidth,h,1] := true
h := var_Items:AddItem("Items.<b>CellHasButton</b> property")
var_Items:[CellValue,h,1] := " <img>2</img>Button <b>3</b> "
var_Items:[CellHasButton,h,1] := true
var_Items:[CellButtonAutoWidth,h,1] := true
h := var_Items:AddItem("Items.<b>CellHasButton</b> property")
var_Items:[ItemHeight,h] := 32
var_Items:[CellValue,h,1] := " <img>2</img>Button <b>4</b> <img>pic1</img> "
var_Items:[CellHasButton,h,1] := true
var_Items:[CellButtonAutoWidth,h,1] := true
h := var_Items:AddItem("Items.<b>CellHasButton</b> in splitted cells")
var_Items:[CellValue,h,1] := " Button <b>5.1</b> "
var_Items:[CellHasButton,h,1] := true
var_Items:[CellButtonAutoWidth,h,1] := true
s := var_Items:[SplitCell,h,1]
var_Items:[CellValue,0,s] := " Button <b>5.2</b> "
var_Items:[CellHasButton,0,s] := true
var_Items:[CellButtonAutoWidth,0,s] := true
h := var_Items:AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
var_Items:[CellValue,h,1] := "Visible when clicking the cell"
var_Editor := var_Items:[CellEditor,h,1]
var_Editor:EditType := EditType
var_Editor:AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1",nil,nil)
var_Editor:AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3",nil,nil)
var_Editor:AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4",nil,nil)
var_Editor:ButtonWidth := 24
h := var_Items:AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
var_Items:[CellValue,h,1] := 3
var_Editor1 := var_Items:[CellEditor,h,1]
var_Editor1:EditType := CheckListType
var_Editor1:AddItem(1,"Flag 1",nil)
var_Editor1:AddItem(2,"Flag 2",nil)
var_Editor1:AddItem(4,"Flag 4",nil)
var_Editor1:AddItem(8,"Flag 8",nil)
var_Editor1:AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1",nil,nil)
var_Editor1:AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2",nil,nil)
var_Editor1:AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3",nil,nil)
var_Editor1:ButtonWidth := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
1334
|
Is it posible to store additional values against each item, cell, bar, link, such as custom values such string / numbers etc
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 96
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:Data := "Extra_Data_Column"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[ItemData,h] := "Extra_Data_Item 1"
var_Items:[CellData,h,0] := "Extra_Data_Item 1_Cell_0"
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"B1",nil)
var_Items:[ItemBar,h,"B1",exBarData] := "Extra_B1_Data"
h := var_Items:AddItem("Item 2")
var_Items:[ItemData,h] := "Extra_Data_Item 2"
var_Items:AddBar(h,"Task",SToD("20010106"),SToD("20010110"),"B2",nil)
var_Items:[ItemBar,h,"B2",exBarData] := "Extra_B2_Data"
var_Items:AddLink("L1",var_Items:[FindItem,"Item 1",0,nil],"B1",var_Items:[FindItem,"Item 2",0,nil],"B2")
var_Items:[Link,"L1",exLinkUserData] := "Extra_Link_Data"
|
|
1333
|
How do I set the parent item to show the total number of days for its children and also the minimum and maximum dates for its children
local var_Chart as IChart
local var_Columns as IColumns
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Indent := 11
oDCOCX_Exontrol1:HasLines := exSolidLine
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Tasks")
IColumn{var_Columns:Add("Start")}:[Def,exCellValueToItemBarProperty] := 1
IColumn{var_Columns:Add("End")}:[Def,exCellValueToItemBarProperty] := 2
IColumn{var_Columns:Add("Duration")}:[Def,exCellValueToItemBarProperty] := 513
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 220
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Project")
var_Items:AddBar(h,"Summary",SToD("20060921"),SToD("20061003"),nil,nil)
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060924"),nil,nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20060924"),SToD("20060928"),nil,nil)
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20060928"),SToD("20061003"),nil,nil)
var_Items:DefineSummaryBars(h,"",h1,"")
var_Items:DefineSummaryBars(h,"",h2,"")
var_Items:DefineSummaryBars(h,"",h3,"")
var_Items:[ExpandItem,h] := true
var_Items:[ItemBold,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1332
|
Is it possible to specify the distance between 2 bars to be at least 2 working days
METHOD OCX_Exontrol1BarResizing(Item,Key) CLASS MainDialog
// BarResizing event - Occurs when a bar is moving or resizing.
oDCOCX_Exontrol1:Items:SchedulePDM(Item,Key)
RETURN NIL
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 24
oDCOCX_Exontrol1:AntiAliasing := true
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:Add("Task:Split")
var_Bar:Shortcut := "Task"
var_Bar:Color := RGB(0,0,0)
var_Bar:Height := 17
var_Bar:Pattern := exPatternFrameShadow
var_Chart:FirstVisibleDate := SToD("20010103")
var_Chart:[PaneWidth,false] := 48
var_Chart:LinksWidth := 2
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:AllowLinkBars := false
var_Chart:FirstWeekDay := exMonday
var_Chart:NonworkingDaysPattern := exPatternBDiagonal
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010104"),SToD("20010106"),"K1",nil)
var_Items:[ItemBar,h1,"K1",exBarKeepWorkingCount] := true
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010102"),SToD("20010105"),"K2",nil)
var_Items:[ItemBar,h2,"K2",exBarKeepWorkingCount] := true
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkShowRound] := -1
var_Items:[Link,"L1",exLinkColor] := 8421504
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010106"),"K3",nil)
var_Items:[ItemBar,h3,"K3",exBarKeepWorkingCount] := true
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "<br><br><br><br>This link <u>delays</u> the bars<br>with <b>2</b> working days"
var_Items:[Link,"L2",exLinkPDMWorkingDelay] := 2
var_Items:[Link,"L2",exLinkShowRound] := -1
var_Items:SchedulePDM(0,"K1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1331
|
The item is not getting selected when clicking the cell's checkbox. What should I do
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Items:[SelectItem,Item] := true
RETURN NIL
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
1330
|
How can I add a summary item as a child or subitem of another one
local var_Chart as IChart
local var_Items as IItems
local hChild,hSummary as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 96
var_Chart:FirstVisibleDate := SToD("20110101")
var_Chart:LevelCount := 2
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Project")
var_Items:AddBar(hSummary,"Summary",SToD("20110101"),SToD("20110101"),"Sum",nil)
hChild := var_Items:InsertItem(hSummary,0,"Task 1")
var_Items:AddBar(hChild,"Task",SToD("20110102"),SToD("20110104"),"Task1",nil)
var_Items:DefineSummaryBars(hSummary,"Sum",hChild,"Task1")
hChild := var_Items:InsertItem(hSummary,0,"Task 2")
var_Items:AddBar(hChild,"Task",SToD("20110104"),SToD("20110106"),"Task2",nil)
var_Items:DefineSummaryBars(hSummary,"Sum",hChild,"Task2")
hChild := var_Items:InsertItem(hSummary,0,"Task 3")
var_Items:AddBar(hChild,"Task",SToD("20110106"),SToD("20110108"),"Task3",nil)
var_Items:DefineSummaryBars(hSummary,"Sum",hChild,"Task3")
var_Items:[ExpandItem,hSummary] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1329
|
How can I make an item a subitem of another one
local var_Items as IItems
local hChild,hSummary as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
hSummary := var_Items:AddItem("Project")
hChild := var_Items:InsertItem(hSummary,0,"Task 1")
hChild := var_Items:InsertItem(hSummary,0,"Task 2")
hChild := var_Items:InsertItem(hSummary,0,"Task 3")
var_Items:[ExpandItem,hSummary] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1328
|
Is it possible to move a bar per drag and drop to another owner/item
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Members")}:[Def,exCellValueFormat] := 1
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20060920")
var_Chart:AllowLinkBars := false
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:AllowSelectObjects := exNoSelectObjects
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Member <b>1</b>")
var_Items:AddBar(h,"Task",SToD("20060921"),SToD("20060923"),"T102","Task <b>102</b>")
var_Items:[ItemBar,h,"T102",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"T102",exBarCanMoveToAnother] := true
h := var_Items:AddItem("Member <b>2</b>")
h := var_Items:AddItem("Member <b>3</b>")
h := var_Items:AddItem("Member <b>4</b>")
var_Items:AddBar(h,"Task",SToD("20060921"),SToD("20060923"),"T103","Task <b>103</b>")
var_Items:[ItemBar,h,"T103",exBarHAlignCaption] := 18
var_Items:[ItemBar,h,"T103",exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1327
|
I have the chart displaying days, is it possible to display bars/tasks up to hours so inside days somehow
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:UnitWidth := 38
var_Chart:[PaneWidth,false] := 28
var_Chart:FirstVisibleDate := SToD("20110304")
var_Chart:UnitScale := exDay
var_Chart:ResizeUnitScale := exHour
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("ASS"),"Task",SToD("20110307"),SToD("20110307 03:30:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("EMB"),"Task",SToD("20110307 03:30:00"),SToD("20110308 09:15:00"),nil,nil)
var_Items:AddBar(var_Items:AddItem("TES"),"Task",SToD("20110308 09:15:00"),SToD("20110308 13:45:00"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1326
|
Is it possible to limit the height of the item while resizing
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:[ItemMinHeight,Item] := 18
oDCOCX_Exontrol1:Items:[ItemMaxHeight,Item] := 72
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
1325
|
Is it possible to copy the hierarchy of the control using the GetItems method
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(-1),nil)
|
|
1324
|
I have found a property ReadOnly but this doesn't work correctly. I need the chart part of the control to be readonly too. Is it possible
local var_Chart as IChart
oDCOCX_Exontrol1:ReadOnly := exReadOnly
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:AllowCreateBar := exNoCreateBar
var_Chart:BarsAllowSizing := false
var_Chart:AllowLinkBars := false
|
|
1323
|
How can I select a column
METHOD OCX_Exontrol1MouseDown(Button,Shift,X,Y) CLASS MainDialog
// MouseDown event - Occurs when the user presses a mouse button.
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:[Item,oDCOCX_Exontrol1:[ColumnFromPoint,X,Y]]:Selected := true
oDCOCX_Exontrol1:Items:SelectAll()
oDCOCX_Exontrol1:EndUpdate()
RETURN NIL
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SingleSel := false
oDCOCX_Exontrol1:FullRowSelect := exRectSel
oDCOCX_Exontrol1:SortOnClick := exNoSort
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column1")
var_Columns:Add("Column2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellValue,var_Items:AddItem("One"),1] := "One"
var_Items:[CellValue,var_Items:AddItem("Two"),1] := "Two"
oDCOCX_Exontrol1:EndUpdate()
|
|
1322
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:Filter := "Child 1"
var_Column:FilterType := exFilter
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column1:DisplayFilterButton := true
var_Column1:DisplayFilterPattern := false
var_Column1:DisplayFilterDate := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems
var_Column1:Filter := AsString(SToD("20101228"))
var_Column1:FilterType := exDate
oDCOCX_Exontrol1:FilterCriteria := "%0 or %1"
oDCOCX_Exontrol1:[Description,exFilterBarOr] := "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Child 1"),1] := SToD("20101227")
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Child 2"),1] := SToD("20101228")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Child 1"),1] := SToD("20101229")
var_Items:[CellValue,var_Items:InsertItem(h,nil,"Child 2"),1] := SToD("20101230")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1321
|
Is it possible exclude the dates being selected in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1320
|
How can I display a calendar control inside the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exShowCheckBox | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1319
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exShowCheckBox
var_Column:Filter := "to 12/27/2010"
var_Column:FilterType := exDate
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1318
|
How can I filter items for dates before a specified date
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Column:Filter := "to 12/27/2010"
var_Column:FilterType := exDate
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1317
|
Is it possible to filter dates
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
1316
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarExclude] := "Leaving out"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1315
|
How can I display the Exclude field in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
1314
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:[SelectItem,var_Items:InsertItem(h,nil,"Child 2")] := true
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
1313
|
Is it possible to show only blanks items with no listed items from the control
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1312
|
How can I include the blanks items in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1311
|
How can I select multiple items in the drop down filter window, using check-boxes
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1310
|
Is it possible to allow a single item being selected in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exSingleSel
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1309
|
How can I display no (All) item in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarAll] := ""
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1308
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
1307
|
How can I specify the time-scale available when zoom-in/zoom-out or enlarging the chart
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Chart:LevelCount := 3
var_Chart:UnitScale := exDay
var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Chart:[Label,exHour] := ""
var_Chart:[Label,exMinute] := ""
var_Chart:[Label,exSecond] := ""
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010110"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010110"),SToD("20010114"),"K1",nil)
var_Items:AddBar(var_Items:AddItem(""),"",SToD("20010108"),SToD("20010108"),"Info","Click the <b>middle</b> mouse button and start dragging")
oDCOCX_Exontrol1:EndUpdate()
|
|
1306
|
How can I enable zoom-in/zoom-out or enlarging the chart, using the mouse middle button
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Chart:LevelCount := 3
var_Chart:UnitScale := exDay
var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010110"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010110"),SToD("20010114"),"K1",nil)
var_Items:AddBar(var_Items:AddItem(""),"",SToD("20010108"),SToD("20010108"),"Info","Click the <b>middle</b> mouse button and start dragging")
oDCOCX_Exontrol1:EndUpdate()
|
|
1305
|
How can I enable zoom-in/zoom-out or enlarging, using the chart's header
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Chart:LevelCount := 3
var_Chart:UnitScale := exDay
var_Chart:AllowResizeChart := exAllowChangeUnitScale | exAllowResizeChartHeader
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010110"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010110"),SToD("20010114"),"K1",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1304
|
How can I enable resizing the chart, using the mouse middle button
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Chart:LevelCount := 3
var_Chart:UnitScale := exDay
var_Chart:AllowResizeChart := exAllowResizeChartMiddle | exAllowResizeChartHeader
var_Chart:MaxUnitWidth := 128
var_Chart:MinUnitWidth := 8
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010110"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010110"),SToD("20010114"),"K1",nil)
var_Items:AddBar(var_Items:AddItem(""),"",SToD("20010108"),SToD("20010108"),"Info","Click the <b>middle</b> mouse button and start dragging")
oDCOCX_Exontrol1:EndUpdate()
|
|
1303
|
How can I enable resizing the chart, using the chart's header
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:[PaneWidth,false] := 48
var_Chart:ShowNonworkingDates := false
var_Chart:LevelCount := 3
var_Chart:UnitScale := exDay
var_Chart:AllowResizeChart := exAllowResizeChartHeader
var_Chart:MaxUnitWidth := 128
var_Chart:MinUnitWidth := 8
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010106"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010106"),SToD("20010110"),"K1",nil)
var_Items:AddBar(var_Items:AddItem("Task C"),"Task",SToD("20010110"),SToD("20010114"),"K1",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
1302
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:FilterType := exFilter
var_Column:Filter := "Child 2"
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.1")}
var_Column1:FormatColumn := "1 ropos ''"
var_Column1:Position := 0
var_Column1:Width := 32
var_Column1:AllowSizing := false
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.2")}
var_Column2:FormatColumn := "1 ropos ':'"
var_Column2:Position := 1
var_Column2:Width := 32
var_Column2:AllowSizing := false
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.3")}
var_Column3:FormatColumn := "1 ropos ':|A-Z'"
var_Column3:Position := 2
var_Column3:Width := 32
var_Column3:AllowSizing := false
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.4")}
var_Column4:FormatColumn := "1 ropos '|A-Z|'"
var_Column4:Position := 3
var_Column4:Width := 32
var_Column4:AllowSizing := false
var_Column5 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.5")}
var_Column5:FormatColumn := "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
var_Column5:[Def,exCellValueFormat] := 1
var_Column5:Position := 4
var_Column5:Width := 32
var_Column5:AllowSizing := false
var_Column6 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.6")}
var_Column6:FormatColumn := "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
var_Column6:[Def,exCellValueFormat] := 1
var_Column6:Position := 5
var_Column6:Width := 48
var_Column6:AllowSizing := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
1301
|
Is it possible to auto-numbering the children items too
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.1")}
var_Column:FormatColumn := "1 rpos ''"
var_Column:Position := 0
var_Column:Width := 32
var_Column:AllowSizing := false
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.2")}
var_Column1:FormatColumn := "1 rpos ':'"
var_Column1:Position := 1
var_Column1:Width := 32
var_Column1:AllowSizing := false
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.3")}
var_Column2:FormatColumn := "1 rpos ':|A-Z'"
var_Column2:Position := 2
var_Column2:Width := 32
var_Column2:AllowSizing := false
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.4")}
var_Column3:FormatColumn := "1 rpos '|A-Z|'"
var_Column3:Position := 3
var_Column3:Width := 32
var_Column3:AllowSizing := false
var_Column4 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.5")}
var_Column4:FormatColumn := "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
var_Column4:[Def,exCellValueFormat] := 1
var_Column4:Position := 4
var_Column4:Width := 32
var_Column4:AllowSizing := false
var_Column5 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos.6")}
var_Column5:FormatColumn := "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
var_Column5:[Def,exCellValueFormat] := 1
var_Column5:Position := 5
var_Column5:Width := 48
var_Column5:AllowSizing := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|